home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_2 / brandnewwais.pl.bk < prev    next >
Text File  |  1996-02-15  |  6KB  |  212 lines
  1. #!./perl
  2. #
  3. # newwais.pl -- WAIS search interface
  4. #
  5. # from wais.pl
  6. #
  7. # Tony Sanders <sanders@bsdi.com>, Nov 1993
  8. #
  9. # Example configuration (in local.conf):
  10. #     map topdir wais.pl &do_wais($top, $path, $query, "database", "title")
  11. #
  12. # this script uses a sneaky feature of Mosaic that interpretes a 
  13. # single text input form with the name 'isindex' (case sensitive) to
  14. # the same as a <ISINDEX>.  On non-mosaic clients, you wind up with an
  15. # additional query
  16. #
  17. # Note that I know even less about perl than the other two people
  18. # who hacked this, so feel free to send hate mail to pjh@netcom.com
  19. # if I did something really bad (or if there is a better way of
  20. # grabbing the filename off the end of a path.
  21. #
  22.  
  23. $oldLIB = $ENV{"LD_LIBRARY_PATH"}; 
  24. $ENV{"LD_LIBRARY_PATH"} = "$oldLIB:/usr/ucblib"; 
  25.  
  26.  
  27. #require 'ctime.pl';
  28.  
  29. $waisq = "./waisq";
  30. $waisd = "/tmp/.wais/wais_CDware";
  31.  
  32.  
  33. $src = "wais_CDware";
  34. $title = "Example Data";
  35. #
  36. # file type map based on file extension, since all file types
  37. # come back type URL
  38. #
  39.  
  40. %filetype = (
  41. 'html', 'HTML File', 'ps', 'PostScript  Document',
  42. 'htm', 'HTML File', 'eps', 'PostScript  Document',
  43. 'txt','Text File', 'home', 'Home Page on Business Solution CD'
  44. );
  45.  
  46. #
  47. # code
  48. # 
  49. sub send_index {
  50.     print "Content-type: text/html\n\n";
  51.     
  52.     print "<HEAD>\n<TITLE>Index of ", $title, "</TITLE>\n</HEAD>\n";
  53.     print "<BODY>\n<H1>", $title, "</H1>\n";
  54.  
  55.     print "This is an index of the information on this server. Please\n";
  56.     print "type a query in the search dialog.\n<P>";
  57.     print "You may use compound searches, such as: <CODE>environment AND cgi</CODE>\n";
  58.     print "<ISINDEX>";
  59. }
  60.  
  61.  
  62. sub do_wais {
  63. #    local($top, $path, $query, $src, $title) = @_;
  64.  
  65. # parse stream
  66.  
  67.  
  68.     for (@_){s/\\//g};
  69.  
  70.     local(@query) = @_;
  71.     local($pquery) = join(" ", @query);
  72.     local($nquery) = $pquery;
  73.     $nquery =~ tr/[A-Z]/[a-z]/;
  74.     if (!(($nquery =~ / and /) || ($nquery =~ / or /)))
  75.     {
  76.        $nquery =~ s/ //g;
  77.     }
  78. #
  79. # grab a wais source if there is one
  80. #
  81.  
  82.     local($test) = $ENV{'PATH_INFO'};
  83.     if ($test)
  84.     {
  85.     $test =~ s/\///;
  86.         $src = "wais_CDware";
  87.         $title = $test;
  88.     }
  89.  
  90.     close STDERR;
  91.     open(STDERR, ">/dev/null");
  92.  
  93.     print "Content-type: text/html\n\n";
  94.  
  95.     $ENV{'HOME'} = "/";
  96.     
  97.     open(WAISQ, "-|") || exec ($waisq, "-c", $waisd, "-m", 100,
  98.                                 "-f", "-", "-S", "$src.src", "-g", $nquery);
  99.  
  100.     print "<HEAD>\n<TITLE>Search of ", $title, "</TITLE>\n</HEAD>\n";
  101.     print "<img src=\"/.wais/images/goto_home.gif\">\n";
  102.     print "<BODY>\n<H1>CDware Search Results</H1>\n";
  103.  
  104.     print "<HR><FORM method=\"POST\" action=\"/cgi-bin/brandnewwais.pl/$src\">\n";
  105.     print "Enter keyword(s):\n";
  106. #    print "<input name=\"isindex\" value=\"@query\" size=30></FORM><HR>\n";
  107.     print "<input name=\"isindex\" value=\"$pquery\" size=30></FORM><HR>\n";
  108.  
  109.     print "$title contains the following\n";
  110.     print "items relevant to <B>\`$pquery\':</B><P>\n";
  111.     print "<DL>\n";
  112.  
  113.     #local($hits, $score, $headline, $lines, $bytes, $type, $date);
  114.     local($hits, $score, $lines, $bytes, $type, $date);
  115.  
  116. $hits = -1;
  117.     print "<OL>";
  118.     while (<WAISQ>) {
  119.         /:score\s+(\d+)/ && ($score = $1);
  120.         /:number-of-lines\s+(\d+)/ && ($lines = $1);
  121.         /:number-of-bytes\s+(\d+)/ && ($bytes = $1);
  122.         /:type "(.*)"/ && ($type = $1);
  123.         /:headline "(.*)"/ && ($headline = $1);         # XXX
  124.         /:date "(\d+)"/ && ($date = $1, $hits++, &docdone);
  125.     }
  126.     &display;
  127.     print "</OL>";
  128.     close(WAISQ);
  129.     print "</DL>\n";
  130.  
  131.     print "</BODY>\n";
  132. }
  133.  
  134.  
  135.  
  136.  
  137.  
  138. #
  139. # THis sub was set up to grab the context of the string.
  140. # It needs to be emplemented
  141. #
  142. sub display {
  143.     for ($i = 0; $i <= $length_context - 1; $i++ ) {
  144.     @tmp = split(/,/,@pcontext[$i]);
  145.     $href = @tmp[1];
  146.     $name = @tmp[0];
  147.     $ext = @tmp[3];
  148.        $filename = $href;
  149.        $filename =~ s/file:\/\///;
  150.        #$filename =~ s/\/([^\/]*)$//;
  151.        #$filename = $1;
  152.  
  153.         print "<LI><A HREF=\"$href\"><B><b>$name</B></b></A>";
  154.         print "        <b>$filetype{$ext}</b>\n";
  155. #        open(IN,$filename) || die "howdy";
  156. #        while (<IN>) { 
  157. #                        if ( $_ =~ /$pquery/i ){
  158.             #$temporary = $_;
  159.             #$temporary = s/[^.*$pquery]*$//i;
  160.             #$temporary = $_;
  161.                         #print "$temporary<b>;</b><br>";
  162. #                        }
  163. #        }
  164. #        close(IN);
  165.  
  166.     }
  167. }
  168.  
  169.  
  170. sub docdone {
  171.  
  172.     if ($headline =~ /Search produced no result/) {
  173.         print "<HR>";
  174.     print "Search produced no result.";
  175.     print "<p>Test<p>";
  176.     print $Test;
  177. #        print $headline, "<P>\n<PRE>";
  178. # the following was &'safeopen
  179. #        open(WAISCAT, "$waisd/$src.cat") || die "$src.cat: $!";
  180. #        while (<WAISCAT>) {
  181. #            s#(Catalog for database:)\s+.*#$1 <STRONG>Catalyst Catalog on CDware</STRONG>#;
  182. #            s#Headline:\s+(.*)#Headline: <A HREF="$1">$1</A>#;
  183. #            print;
  184. #        }
  185. #        close(WAISCAT);
  186. #        print "\n</PRE>\n";
  187.     } else {
  188.         $docname = $headline;
  189.     $docname =~ s/\.([^.]*)$//;
  190.     $extension= $1;
  191.     $docname =~ s/\/([^\/]*)$//;
  192.     $docname = $1;
  193.     if ($docname =~ "^index") {
  194.         $docname = $headline;
  195.             $docname =~ s/\/([^\/]*)$//;
  196.             $docname =~ s/\/([^\/]*)$//;
  197.         $docname = $1;
  198.         $extension = "home";
  199.         } else {
  200.         $docname = $1;
  201.     }
  202.     @context = ($docname,$headline,$filetype,$extension);
  203.     @pcontext[$hits] = join (",", @context); 
  204.     
  205.     }
  206.     $length_context = @pcontext;
  207.     
  208.     $score = $headline = $lines = $bytes = $type = $date = '';
  209. }
  210.  
  211. eval '&do_wais';
  212.